home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / ansi.scr next >
Encoding:
Text File  |  1995-03-04  |  1.4 KB  |  37 lines
  1. /*
  2.  * Some nice C:\OCTOPUS\ANSIScreens to demostrate the new
  3.  * local C:\OCTOPUS\ANSI functions in Octopus.
  4.  *
  5.  * Include this somewhere in your OCTOPUS.SCR and
  6.  * call it with:  Gosub  C:\OCTOPUS\ANSIScreens
  7.  */
  8.  
  9. :AnsiScreens
  10. Do
  11.   Send '\fANSI Screens...\r\n\n'
  12.   Send   'Press A - Q to see nice pictures or\r\n'
  13.   Send   'space bar to return to last menu.  Select: '
  14.   DoChoice
  15.      SelectChoice
  16.         Case A   Menu C:\OCTOPUS\ANSI\CAPCNCH.ANS   
  17.         Case B   Menu C:\OCTOPUS\ANSI\COLLIE.ANS    
  18.         Case C   Menu C:\OCTOPUS\ANSI\FOZZIE.ANS    
  19.         Case D   Menu C:\OCTOPUS\ANSI\GARFWEL.ANS   
  20.         Case E   Menu C:\OCTOPUS\ANSI\GIRL1.ANS     GetKey
  21.         Case F   Menu C:\OCTOPUS\ANSI\GOOFY.ANS     
  22.         Case G   Menu C:\OCTOPUS\ANSI\JIMINY.ANS    
  23.         Case H   Menu C:\OCTOPUS\ANSI\LDY&TRMP.ANS  
  24.         Case I   Menu C:\OCTOPUS\ANSI\MONOPOLY.ANS  
  25.         Case J   Menu C:\OCTOPUS\ANSI\MSDUCK.ANS    
  26.         Case K   Menu C:\OCTOPUS\ANSI\PETERPAN.ANS  
  27.         Case L   Menu C:\OCTOPUS\ANSI\PINOCHIO.ANS  
  28.         Case M   Menu C:\OCTOPUS\ANSI\ROBOCAT.ANS   
  29.         Case N   Menu C:\OCTOPUS\ANSI\ROSEWEL.ANS   GetKey
  30.         Case O   Menu C:\OCTOPUS\ANSI\SEBASTIN.ANS  
  31.         Case P   Menu C:\OCTOPUS\ANSI\SNPYESTR.ANS  
  32.         Case Q   Menu C:\OCTOPUS\ANSI\STARSHIP.ANS  GetKey
  33.      EndSelect
  34.    EnddoChoice ' '
  35. Enddo ' '
  36. Return
  37.